home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Productivity / atOnce / atOnce! Demo / atOnce! Demo / background_92517.txt < prev    next >
Text File  |  1990-03-20  |  3KB  |  147 lines
  1. -- background: 92517 from stack: in
  2. -- bmap block id: 92756
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Glossary
  6. ----- HyperTalk script -----
  7. on opencard
  8.   set highlight of card button "flag" to true
  9.  
  10. End opencard
  11.  
  12.  
  13.  
  14.  
  15. -- part 38 (field)
  16. -- low flags: 01
  17. -- high flags: 0002
  18. -- rect: left=106 top=259 right=277 bottom=331
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Find
  27. ----- HyperTalk script -----
  28. on zipField
  29.  
  30.   set lockscreen to true
  31.   put field "Find" into match
  32.   go next
  33.   find match
  34.   if the result is "Not Found" then
  35.     answer quote & match & quote && "not found."
  36.     go prev
  37.     put match into field "Find"
  38.   else
  39.     click at 198,288
  40.     put match into field "Find"
  41.     find match
  42.   end if
  43. end zipField
  44.  
  45. on returnInField
  46.   send mouseUp to bkgnd btn "Find button"
  47. end returnInField
  48.  
  49.  
  50.  
  51. -- part 73 (field)
  52. -- low flags: 01
  53. -- high flags: 0000
  54. -- rect: left=63 top=24 right=51 bottom=454
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 21
  59. -- text size: 18
  60. -- style flags: 0
  61. -- line height: 24
  62. -- part name: Term
  63.  
  64.  
  65. -- part 2 (field)
  66. -- low flags: 00
  67. -- high flags: 0000
  68. -- rect: left=63 top=54 right=251 bottom=331
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Definition
  77. ----- HyperTalk script -----
  78. on closeField
  79.   -- set lockScreen to true
  80.   hide field "Enter def"
  81.   unlock screen with dissolve slowly
  82.   -- set lockText of me to true
  83. end closeField
  84.  
  85.  
  86.  
  87. -- part 71 (button)
  88. -- low flags: 00
  89. -- high flags: 0000
  90. -- rect: left=463 top=304 right=336 bottom=492
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 1012 / 1012
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: 
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   visual dissolve
  102.   go card "text Sampler"
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 78 (field)
  108. -- low flags: 81
  109. -- high flags: 4007
  110. -- rect: left=7 top=32 right=336 bottom=64
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 0
  114. -- font id: 3
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Index
  119.  
  120.  
  121. -- part 80 (field)
  122. -- low flags: 81
  123. -- high flags: 0000
  124. -- rect: left=74 top=313 right=328 bottom=154
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Status
  133.  
  134.  
  135. -- part 82 (field)
  136. -- low flags: 81
  137. -- high flags: 0004
  138. -- rect: left=70 top=266 right=337 bottom=362
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Enter def
  147.